home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / kcl / akcl / akcl1615.lha / c / sbrk.c < prev    next >
C/C++ Source or Header  |  1989-05-11  |  322b  |  28 lines
  1. #include <sys/types.h>
  2. extern char end;
  3.  
  4. static caddr_t curbrk = &end;
  5. caddr_t sbrk();
  6.  
  7. caddr_t
  8. sbrk(n)
  9.      int n;
  10. { int res;
  11.   if (n==0) return curbrk;
  12.   { caddr_t x=curbrk;
  13.     char *p;
  14.     p=curbrk;
  15.     p=p+n;
  16.     res = brk(p);
  17.   
  18.     if (res==-1) error("can't set brk");
  19.     else curbrk = p;
  20.     return (x);}
  21. }
  22.  
  23.  
  24.  
  25.  
  26.  
  27.  
  28.